COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00004 ENDMK
C⊗;
PRECEDE;
VARIABLE /PX3,/PX4,/PFM;
INSTRUMENT GENRL;
OSCIL[10](P4*PX4,10*MAG/P2,P5);
COSCIL(U1,PX3+P3*MAG,P6);
OUTA←OUTA+U2;
END;

INSTRUMENT ENVLP;
PX4 ← OSCIL[10](P4,10*MAG/P3,P5); <P3 = DURATION OF LONG ENVELOPE
END;

INSTRUMENT PITCH;    <P6 = PITCH CHANGE FACTOR.
PX3 ← OSCIL(PFM,MAG*P3,P5); <P3 = DURATION OF PITCH-CHANGE FUNCTION.
END;

INSTRUMENT FM;
PFM ← INTRP(P5*P7*MAG,P6*P7*MAG,P8);
END;

SEG(F6);0 0 1 100;
SEG(F2);0 0 1  8 .7 18 .7 85 .6 95 0 100;
PX4←1; PX3←0;  
*
GENRL;
P2 RH/8////FINE;
P3 A4;
P4 1000;
P5 F2;
P6 F3;
END;
FM  ;
P2 RH/-8/8///FINE;
P3 A4;
P5 .5;
P6 5;
P7 A4;
P8 FU/2//1/2;
END;
PITCH 0 2;
P2 P2;
P3 A4;
P5 F3;
END;
TEMPO/72;